home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / revtex / aps.sty < prev    next >
Text File  |  1992-10-27  |  30KB  |  1,135 lines
  1. %%% ======================================================================
  2. %%%  @LaTeX-style-file{
  3. %%%     filename        = "aps.sty",
  4. %%%     version         = "3.0",
  5. %%%     date            = "October 28, 1992",
  6. %%%     ISO-date        = "1992.10.28",
  7. %%%     time            = "15:41:54.18 EDT",
  8. %%%     author          = "American Physical Society",
  9. %%%     contact         = "Christopher B. Hamlin",
  10. %%%     address         = "APS Publications Liaison Office
  11. %%%                        500 Sunnyside Blvd.
  12. %%%                        Woodbury, NY 11797",
  13. %%%     telephone       = "(516) 576-2390",
  14. %%%     FAX             = "(516) 349-7817",
  15. %%%     email           = "mis@aps.org (Internet)",
  16. %%%     supported       = "yes",
  17. %%%     archived        = "pinet.aip.org/pub/revtex,
  18. %%%                        Niord.SHSU.edu:[FILESERV.REVTEX]",
  19. %%%     keywords        = "REVTeX, version 3.0, main style,
  20. %%%                        American Physical Society",
  21. %%%     codetable       = "ISO/ASCII",
  22. %%%     checksum        = "16389 1134 1960 30295",
  23. %%%     docstring       = "This is the main society-specific style file for
  24. %%%                        the Americal Physical Society under REVTeX 3.0
  25. %%%                        (release of November 10, 1992).
  26. %%%
  27. %%%                        The checksum field above contains a CRC-16
  28. %%%                        checksum as the first value, followed by the
  29. %%%                        equivalent of the standard UNIX wc (word
  30. %%%                        count) utility output of lines, words, and
  31. %%%                        characters.  This is produced by Robert
  32. %%%                        Solovay's checksum utility."
  33. %%% }
  34. %%% ======================================================================
  35. % ****** Start of file aps.sty ******
  36. %
  37. %
  38. %   This file is part of the APS files in the REVTeX 3.0 distribution.
  39. %   Version 3.0 of REVTeX, November 10, 1992.
  40. %
  41. %   Copyright (c) 1992 The American Physical Society.
  42. %
  43. %   See the REVTeX 3.0 README file for restrictions and more information.
  44. %
  45.  
  46. \typeout{Filename: aps.sty, v3.0 <28 October 1992>}
  47.  
  48. \def\partname{Part}
  49. \def\contentsname{Contents}
  50. \def\listfigurename{List of Figures}
  51. \def\listtablename{List of Tables}
  52. \def\refname{REFERENCES}
  53. \def\indexname{Index}
  54. \def\figurename{FIG.}
  55. \def\tablename{TABLE}
  56. \def\abstractname{Abstract}
  57.  
  58. \newif\iffirstfig \global\firstfigtrue
  59. \newif\iffirsttab \global\firsttabtrue
  60.  
  61. \def\tightenlines{\def\baselinestretch{1}\small\normalsize}
  62. \let\tighten\tightenlines
  63.  
  64. \ifx\selectfont\undefined %
  65. \@revmess{message}{NFSS not detected. Assuming OFSS.}
  66. \let\reset@font\relax
  67. \def\mathhexbox{\protect\mathhexbox@}
  68. \def\mathhexbox@#1#2#3{\relax
  69. \ifmmode\mathpalette{}{\m@th\mathchar"#1#2#3}%
  70. \else\leavevmode\hbox{$\m@th\mathchar"#1#2#3$}\fi}
  71. \def\text#1{%
  72. \relax
  73. \ifmmode %
  74. \mathchoice
  75. {\hbox{\everymath{\displaystyle}\rm #1}}%
  76. {\hbox{\everymath{\textstyle}\rm #1}}%
  77. {\hbox{\everymath{\scriptstyle}%
  78. \def\prm{\fam\z@ \the\scriptfont\z@ \relax}%
  79. \def\pit{\fam\itfam \the\scriptfont\itfam \relax}%
  80. \rm #1}%
  81. }%
  82. {\hbox{\everymath{\scriptscriptstyle}%
  83. \def\prm{\fam\z@ \the\scriptscriptfont\z@ \relax}%
  84. \def\pit{\fam\itfam \the\scriptscriptfont\itfam \relax}%
  85. \rm #1}%
  86. }%
  87. \else %
  88. \leavevmode\hbox{#1}%
  89. \fi
  90. }
  91. \def\bbox#1{%
  92. \leavevmode\text{%
  93. \textfont0 \the\textfont\bffam
  94. \scriptfont0 \the\scriptfont\bffam
  95. \scriptscriptfont0 \the\scriptscriptfont\bffam
  96. \@temptokena\everymath \boldmath \everymath\@temptokena
  97. {$\m@th\relax#1$}%
  98. }%
  99. }
  100. \font\fivbf=cmbx5 \font\sixbf=cmbx6 \font\sevbf=cmbx7 \font\egtbf=cmbx8
  101. \expandafter\def\expandafter\ixpt\expandafter{\ixpt
  102. \scriptfont\bffam\sixbf \scriptscriptfont\bffam\fivbf}
  103. \expandafter\def\expandafter\xpt\expandafter{\xpt
  104. \scriptfont\bffam\sevbf \scriptscriptfont\bffam\fivbf}
  105. \expandafter\def\expandafter\xipt\expandafter{\xipt
  106. \scriptfont\bffam\egtbf \scriptscriptfont\bffam\sixbf}
  107. \expandafter\def\expandafter\xiipt\expandafter{\xiipt
  108. \scriptfont\bffam\egtbf \scriptscriptfont\bffam\sixbf}
  109. \expandafter\def\expandafter\xivpt\expandafter{\xivpt
  110. \scriptfont\bffam\tenbf \scriptscriptfont\bffam\sevbf}
  111. \else %
  112. \@revmess{message}{NFSS detected! Assuming NFSS.}
  113. \def\text#1{%
  114. \relax\ifmmode
  115. \mathchoice
  116. {\hbox{{\everymath{\displaystyle}#1}}}%
  117. {\hbox{{\everymath{\textstyle}#1}}}%
  118. {\hbox{{\everymath{\scriptstyle}\let\f@size\sf@size\selectfont#1}}}%
  119. {\hbox{{\everymath{\scriptscriptstyle}\let\f@size\ssf@size\selectfont#1}}}%
  120. \glb@settings
  121. \else
  122. \mbox{#1}%
  123. \fi
  124. }
  125. \def\bbox#1{%
  126. \relax\ifmmode
  127. \mathchoice
  128. {{\hbox{\boldmath$\displaystyle#1$}}}%
  129. {{\hbox{\boldmath$\textstyle#1$}}}%
  130. {{\hbox{\boldmath$\scriptstyle#1$}}}%
  131. {{\hbox{\boldmath$\scriptscriptstyle#1$}}}%
  132. \glb@settings
  133. \else
  134. \mbox{#1}%
  135. \fi
  136. }
  137. \def\mathhexbox{\protect\mathhexbox@}
  138. \def\mathhexbox@#1#2#3{\relax
  139. \ifmmode\mathpalette{}{\m@th\mathchar"#1#2#3}%
  140. \else\leavevmode\hbox{$\m@th\mathchar"#1#2#3$}\fi}
  141. \fi
  142.  
  143. \input aps1\@ptsize.sty\relax
  144.  
  145. \def\@chuckoptarg[#1]{}
  146.  
  147. \def\alph#1{\@alph{\@nameuse{c@#1}}}
  148. \def\@alph#1{\ifcase#1\or a\or b\or c\or d\else\@ialph{#1}\fi}
  149. \def\@ialph#1{\ifcase#1\or \or \or \or \or e\or f\or g\or h\or i\or j\or
  150. k\or l\or m\or n\or o\or p\or q\or r\or s\or t\or u\or v\or w\or x\or y\or
  151. z\or aa\or bb\or cc\or dd\or ee\or ff\or gg\or hh\or ii\or jj\or
  152. kk\or ll\or mm\or nn\or oo\or pp\or qq\or rr\or ss\or tt\or uu\or
  153. vv\or ww\or xx\or yy\or zz\else\@ctrerr\fi}
  154.  
  155. \let\slantfrac\frac
  156.  
  157. \def\ao{Appl.\  Opt.\ }
  158. \def\ap{Appl.\  Phys.\ }
  159. \def\apl{Appl.\ Phys.\ Lett.\ }
  160. \def\apj{Astrophys.\ J.\ }
  161. \def\bell{Bell Syst.\ Tech.\ J.\ }
  162. \def\jqe{IEEE J.\ Quantum Electron.\ }
  163. \def\assp{IEEE Trans.\ Acoust.\ Speech Signal Process.\ }
  164. \def\aprop{IEEE Trans.\ Antennas Propag.\ }
  165. \def\mtt{IEEE Trans.\ Microwave Theory Tech.\ }
  166. \def\iovs{Invest.\ Ophthalmol.\ Vis.\ Sci.\ }
  167. \def\jcp{J.\ Chem.\ Phys.\ }
  168. \def\jmo{J.\ Mod.\ Opt.\ }
  169. \def\josa{J.\ Opt.\ Soc.\ Am.\ }
  170. \def\josaa{J.\ Opt.\ Soc.\ Am.\ A }
  171. \def\josab{J.\ Opt.\ Soc.\ Am.\ B }
  172. \def\jpp{J.\ Phys.\ (Paris) }
  173. \def\nat{Nature (London) }
  174. \def\oc{Opt.\ Commun.\ }
  175. \def\ol{Opt.\ Lett.\ }
  176. \def\pl{Phys.\ Lett.\ }
  177. \def\pra{Phys.\ Rev.\ A }
  178. \def\prb{Phys.\ Rev.\ B }
  179. \def\prc{Phys.\ Rev.\ C }
  180. \def\prd{Phys.\ Rev.\ D }
  181. \def\pre{Phys.\ Rev.\ E }
  182. \def\prl{Phys.\ Rev.\ Lett.\ }
  183. \def\rmp{Rev.\ Mod.\ Phys.\ }
  184. \def\pspie{Proc.\ Soc.\ Photo-Opt.\ Instrum.\ Eng.\ }
  185. \def\sjqe{Sov.\ J.\ Quantum Electron.\ }
  186. \def\vr{Vision Res.\ }
  187.  
  188. \def\labelenumi{\theenumi.}
  189. \def\theenumi{\arabic{enumi}}
  190.  
  191. \def\labelenumii{(\theenumii)}
  192. \def\theenumii{\alph{enumii}}
  193. \def\p@enumii{\theenumi}
  194.  
  195. \def\labelenumiii{\theenumiii.}
  196. \def\theenumiii{\roman{enumiii}}
  197. \def\p@enumiii{\theenumi(\theenumii)}
  198.  
  199. \def\labelenumiv{\theenumiv.}
  200. \def\theenumiv{\Alph{enumiv}}
  201. \def\p@enumiv{\p@enumiii\theenumiii}
  202.  
  203. \def\labelitemi{$\m@th\bullet$}
  204. \def\labelitemii{\bf --}
  205. \def\labelitemiii{$\m@th\ast$}
  206. \def\labelitemiv{$\m@th\cdot$}
  207.  
  208. \def\verse{\let\\=\@centercr
  209. \list{}{\itemsep\z@ \itemindent -1.5em\listparindent \itemindent
  210. \rightmargin\leftmargin\advance\leftmargin 1.5em}\item[]}
  211. \let\endverse\endlist
  212.  
  213. \def\quotation{\list{}{\listparindent 1.5em
  214. \itemindent\listparindent
  215. \rightmargin\leftmargin \parsep \z@ plus\p@}\item[]}
  216. \let\endquotation=\endlist
  217.  
  218. \def\quote{\list{}{\rightmargin\leftmargin}\item[]}
  219. \let\endquote=\endlist
  220.  
  221. \def\descriptionlabel#1{\hspace\labelsep \bf #1}
  222. \def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin
  223. \let\makelabel\descriptionlabel}}
  224.  
  225. \let\enddescription\endlist
  226.  
  227. \def\titlepage{\@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn
  228. \else \newpage \fi \thispagestyle{empty}\c@page\z@}
  229.  
  230. \def\endtitlepage{\if@restonecol\twocolumn \else \newpage \fi}
  231.  
  232. \arraycolsep 3pt %
  233. \tabcolsep 2pt %
  234. \arrayrulewidth .4pt %
  235. \doublerulesep 2pt %
  236.  
  237. \tabbingsep \labelsep %
  238.  
  239. \skip\@mpfootins = \skip\footins
  240.  
  241. \fboxsep = 3pt %
  242. \fboxrule = .4pt %
  243.  
  244. \newcounter{part}
  245. \newcounter{section}
  246. \newcounter{subsection}[section]
  247. \newcounter{subsubsection}[subsection]
  248. \newcounter{paragraph}[subsubsection]
  249. \newcounter{subparagraph}[paragraph]
  250.  
  251. \def\thepart          {\Roman{part}} %
  252. \def\thesection       {\Roman{section}}
  253. \def\p@section        {}
  254. \def\thesubsection    {\Alph{subsection}}
  255. \def\p@subsection     {\thesection\,}
  256. \def\thesubsubsection {\arabic{subsubsection}}
  257. \def\p@subsubsection  {\thesection\,\thesubsection\,}
  258. \def\theparagraph     {\alph{paragraph}}
  259. \def\thesubparagraph  {\theparagraph.\arabic{subparagraph}}
  260.  
  261. \def\acknowledgments{\section*{ACKNOWLEDGMENTS}}
  262. \let\acknowledgements\acknowledgments
  263.  
  264. \def\@sect#1#2#3#4#5#6[#7]#8{\ifnum #2>\c@secnumdepth
  265. \let\@svsec\@empty\else
  266. \refstepcounter{#1}%
  267. \def\@tempa{#8}%
  268. \ifx\@tempa\empty %
  269. \ifappendixon %
  270. \if@mainhead %
  271. \def\@tempa{APPENDIX }\def\@tempb{}%
  272. \else %
  273. \def\@tempa{}\def\@tempb{. }%
  274. \fi
  275. \else %
  276. \def\@tempa{}\def\@tempb{. }%
  277. \fi
  278. \else %
  279. \ifappendixon %
  280. \if@mainhead %
  281. \def\@tempa{APPENDIX }\def\@tempb{: }%
  282. \else %
  283. \def\@tempa{}\def\@tempb{. }%
  284. \fi
  285. \else %
  286. \def\@tempa{}\def\@tempb{. }%
  287. \fi
  288. \fi
  289. \edef\@svsec{\@tempa\csname the#1\endcsname\@tempb}\fi
  290. \@tempskipa #5\relax
  291. \ifdim \@tempskipa>\z@
  292. \begingroup #6\relax
  293. {\hskip #3\relax\@svsec}{\interlinepenalty \@M
  294. \if@mainhead\uppercase{#8}\else#8\fi\par}%
  295. \endgroup
  296. \csname #1mark\endcsname{#7}\addcontentsline
  297. {toc}{#1}{\ifnum #2>\c@secnumdepth \else
  298. \protect\numberline{\csname the#1\endcsname}\fi
  299. #7}\else
  300. \def\@svsechd{#6\hskip #3\relax %
  301. \@svsec \if@mainhead\uppercase{#8}\else#8\fi
  302. \csname #1mark\endcsname
  303. {#7}\addcontentsline
  304. {toc}{#1}{\ifnum #2>\c@secnumdepth \else
  305. \protect\numberline{\csname the#1\endcsname}\fi
  306. #7}}\fi
  307. \@xsect{#5}}
  308.  
  309. \def\@ssect#1#2#3#4#5{\@tempskipa #3\relax
  310. \ifdim \@tempskipa>\z@
  311. \begingroup #4{\hskip #1}{\interlinepenalty \@M
  312. \ifappendixon
  313. \if@mainhead %
  314. \stepcounter{section}%
  315. \def\@tempa{#5}%
  316. \ifx\@tempa\empty %
  317. APPENDIX%
  318. \else %
  319. APPENDIX:
  320. \fi
  321. \fi
  322. \fi
  323. \if@mainhead\uppercase{#5}\else#5\fi\par}\endgroup
  324. \else \def\@svsechd{#4\hskip #1\relax
  325. \ifappendixon
  326. \if@mainhead %
  327. \stepcounter{section}%
  328. \def\@tempa{#5}%
  329. \ifx\@tempa\empty %
  330. APPENDIX%
  331. \else %
  332. APPENDIX:
  333. \fi
  334. \fi
  335. \fi
  336. \if@mainhead\uppercase{#5}\else#5\fi}\fi
  337. \@xsect{#3}}
  338.  
  339. \def\part{\par %
  340. \addvspace{4ex} %
  341. \@afterindentfalse %
  342. \secdef\@part\@spart} %
  343.  
  344. \def\@part[#1]#2{\ifnum \c@secnumdepth >\m@ne %
  345. \refstepcounter{part} %
  346. \addcontentsline{toc}{part}{\thepart %
  347. \hspace{1em}#1}\else %
  348. \addcontentsline{toc}{part}{#1}\fi %
  349. {\parindent \z@ \raggedright
  350. \interlinepenalty\@M
  351. \ifnum \c@secnumdepth >\m@ne %
  352. \Large \bf \partname~\thepart%
  353. \par\nobreak %
  354. \fi %
  355. \huge \bf %
  356. #2%
  357. \markboth{}{}\par %
  358. }\nobreak %
  359. \vskip 3ex %
  360. \@afterheading %
  361. } %
  362.  
  363. \def\@spart#1{{\parindent \z@ \raggedright
  364. \interlinepenalty\@M
  365. \huge \bf
  366. #1\par} %
  367. \nobreak %
  368. \vskip 3ex %
  369. \@afterheading %
  370. } %
  371.  
  372. \newcount\@indentflag \global\@indentflag=1 %
  373. \newdimen\@eqtoeqnum \@eqtoeqnum=6pt %
  374. \def\@indentamount{%
  375. \ifcase\@indentflag 0pt\or\@centering\or0pt plus1fil\fi\relax
  376. }
  377. \def\FL{\global\@indentflag=0 }
  378. \def\FR{\global\@indentflag=2 }
  379.  
  380. \newcounter{eqletter} \setcounter{eqletter}{0}
  381.  
  382. \def\@eqnnum{\hbox{\reset@font\rm(\theequation)}}
  383. \let\make@eqnnum=\@eqnnum %
  384. \def\eqnum#1{\dec@eqnnum \global\def\make@eqnnum{\reset@font\rm(#1)}%
  385. \def\@currentlabel{#1}%
  386. }
  387. \def\inc@eqnnum{\addtocounter{equation}{1}}
  388. \def\dec@eqnnum{\addtocounter{equation}{-1}}
  389. \@definecounter{equation}%
  390. \ifsecnumbers %
  391. \@addtoreset{equation}{section} %
  392. \def\theequation@prefix{\arabic{section}.} %
  393. \else %
  394. \def\theequation@prefix{}
  395. \fi
  396.  
  397. \def\theequation{\theequation@prefix\arabic{equation}}%
  398.  
  399. \def\mathletters{%
  400. \inc@eqnnum  \setcounter{eqletter}{0}%
  401. \edef\@currentlabel{\theequation}%
  402. \def\theequation{\theequation@prefix\arabic{equation}\alph{eqletter}}%
  403. \def\inc@eqnnum{\addtocounter{eqletter}{1}}%
  404. \def\dec@eqnnum{\addtocounter{eqletter}{-1}}%
  405. }
  406.  
  407. \let\endmathletters\relax
  408.  
  409. \def\[{\relax
  410. \ifmmode\@badmath\else\par\vskip-\lastskip\vskip\abovedisplayskip\fi
  411. \hbox to\hsize\bgroup
  412. \def\label##1{\@revmess{warning}{\string\label{##1} used
  413. in \string\[\space environment after (\theequation)}}%
  414. \hskip\@totalleftmargin\hskip\@indentamount$\displaystyle
  415. }
  416.  
  417. \def\]{\relax
  418. \ifmmode
  419. $\hskip\@centering\egroup
  420. \else
  421. \@badmath
  422. \fi
  423. \vskip\belowdisplayskip
  424. \global\@indentflag=1 %
  425. \noindent\ignorespaces
  426. }
  427.  
  428. \newbox\@testboxa
  429. \newbox\@testboxb
  430.  
  431. \def\equation{\par\vskip-\lastskip\vskip\abovedisplayskip
  432. \inc@eqnnum\let\@currentlabel=\theequation
  433. \setbox\@testboxa=\hbox\bgroup\hskip\@totalleftmargin\hskip\@indentamount
  434. \hbox\bgroup$\displaystyle
  435. }
  436.  
  437. \def\endequation{$\egroup\hskip\@centering\egroup %
  438. \setbox\@testboxb=\hbox{\make@eqnnum}%
  439. \bgroup
  440. \@tempdima\wd\@testboxa \advance\@tempdima by\wd\@testboxb
  441. \ifcase\@indentflag
  442. \advance\@tempdima by\@eqtoeqnum
  443. \ifdim\@tempdima<\hsize %
  444. \def\@tempa{0}%
  445. \else
  446. \def\@tempa{1}%
  447. \fi
  448. \or
  449. \advance\@tempdima by2\@eqtoeqnum
  450. \ifdim\@tempdima<\hsize %
  451. \def\@tempa{0}%
  452. \else %
  453. \@tempdima\wd\@testboxa \advance\@tempdima by\wd\@testboxb
  454. \advance\@tempdima by\@eqtoeqnum
  455. \ifdim\@tempdima<\hsize %
  456. \def\@tempa{0}%
  457. \setbox\@testboxa\hbox{\hfill\box\@testboxa\kern\@eqtoeqnum}%
  458. \else
  459. \def\@tempa{1}%
  460. \fi
  461. \fi
  462. \or
  463. \advance\@tempdima by2\@eqtoeqnum
  464. \ifdim\@tempdima<\hsize %
  465. \def\@tempa{0}%
  466. \setbox\@testboxb=\hbox{\kern\@eqtoeqnum\make@eqnnum}%
  467. \else
  468. \def\@tempa{1}%
  469. \fi
  470. \fi
  471. \ifnum\@tempa=0 %
  472. \hbox to\hsize{\unhbox\@testboxa\box\@testboxb}%
  473. \else %
  474. \vbox{\hbox to\hsize{\unhbox\@testboxa}%
  475. \vskip6pt %
  476. \hbox to\hsize{\hfil\box\@testboxb}}%
  477. \fi
  478. \egroup
  479. \global\let\make@eqnnum\@eqnnum %
  480. \vskip\belowdisplayskip\noindent\global\@indentflag=1 \global\@ignoretrue
  481. }
  482.  
  483. \def\eqnarray{\par\vskip-\lastskip\vskip\abovedisplayskip
  484. \inc@eqnnum\let\@currentlabel=\theequation
  485. \global\@eqnswtrue\m@th
  486. \global\@eqcnt\z@
  487. \tabskip\@totalleftmargin\advance\tabskip by\@indentamount\let\\\@eqncr
  488. \halign to\hsize\bgroup\hskip\@centering
  489. $\displaystyle\tabskip\z@{##{}}$&\global\@eqcnt\@ne
  490. \hfil${{}##{}}$\hfil
  491. &\global\@eqcnt\tw@ $\displaystyle\tabskip\z@{##}$\hfil
  492. \tabskip\@centering \if@eqnsw\phantom{\make@eqnnum\kern\@eqtoeqnum}\fi
  493. &\llap{##}\tabskip\z@\cr}
  494.  
  495. \def\endeqnarray{%
  496. \@@eqncr\egroup
  497. \vskip\belowdisplayskip\noindent
  498. \dec@eqnnum\global\@indentflag=1
  499. \global\let\make@eqnnum\@eqnnum %
  500. \global\@ignoretrue
  501. }
  502.  
  503. \def\nonumber{\global\@eqnswfalse
  504. \def\label##1{\@revmess{error}{\string\label{##1} used
  505. with \string\nonumber\space before (\theequation)}}%
  506. }
  507.  
  508. \def\@@eqncr{\let\@tempa\relax
  509. \ifcase\@eqcnt \def\@tempa{& & &}\or \def\@tempa{& &}%
  510. \else \def\@tempa{&}\fi
  511. \@tempa \if@eqnsw\make@eqnnum\inc@eqnnum\fi
  512. \global\@eqnswtrue\global\@eqcnt\z@\global\let\make@eqnnum=\@eqnnum\cr
  513. }
  514.  
  515. \@namedef{eqnarray*}{\def\@eqncr{\nonumber\@seqncr}%
  516. \def\label##1{\@revmess{warning}{\string\label{##1} used
  517. in eqnarray* environment before (\theequation)}}%
  518. \eqnarray}
  519.  
  520. \def\@pnumwidth{1.55em}
  521. \def\@tocrmarg {2.55em}
  522. \def\@dotsep{4.5}
  523. \setcounter{tocdepth}{3}
  524.  
  525. \def\tableofcontents{\section*{\contentsname
  526. \@mkboth{\uppercase{\contentsname}}{\uppercase{\contentsname}}}%
  527. \@starttoc{toc}}
  528.  
  529. \def\l@part#1#2{\addpenalty{\@secpenalty}%
  530. \addvspace{2.25em plus\p@}%
  531. \begingroup
  532. \@tempdima 3em %
  533. \parindent \z@ \rightskip \@pnumwidth %
  534. \parfillskip -\@pnumwidth
  535. {\large \bf %
  536. \leavevmode %
  537. #1\hfil \hbox to\@pnumwidth{\hss #2}}\par
  538. \nobreak %
  539. \endgroup}
  540.  
  541. \def\l@section#1#2{\addpenalty{\@secpenalty}%
  542. \addvspace{1.0em plus\p@}%
  543. \@tempdima 3.0em %
  544. \begingroup
  545. \parindent \z@ \rightskip \@pnumwidth
  546. \parfillskip -\@pnumwidth
  547. \bf %
  548. \leavevmode %
  549. \advance\leftskip\@tempdima %
  550. \hskip -\leftskip %
  551. #1\nobreak\hfil \nobreak\hbox to\@pnumwidth{\hss #2}\par
  552. \endgroup}
  553.  
  554. \def\l@subsection{\@dottedtocline{2}{3.0em}{2.0em}}
  555. \def\l@subsubsection{\@dottedtocline{3}{5.0em}{1.5em}}
  556. \def\l@paragraph{\@dottedtocline{4}{6.5em}{1.5em}}
  557. \def\l@subparagraph{\@dottedtocline{5}{8.0em}{1.5em}}
  558.  
  559. \def\listoffigures{\section*{\listfigurename
  560. \@mkboth{\uppercase{\listfigurename}}{\uppercase{\listfigurename}}}%
  561. \@starttoc{lof}}
  562.  
  563. \def\l@figure{\@dottedtocline{1}{1.5em}{2.3em}}
  564.  
  565. \def\listoftables{\section*{\listtablename\@mkboth
  566. {\uppercase{\listtablename}}{\uppercase{\listtablename}}}%
  567. \@starttoc{lot}}
  568. \let\l@table\l@figure
  569.  
  570. \def\@tempa{prb}
  571. \ifx\@tempa\@journal %
  572. \def\tempa{\input prbbib.sty}
  573. \else
  574. \def\tempa{\input prabib.sty}
  575. \fi
  576. \tempa
  577.  
  578. \newif\if@restonecol
  579.  
  580. \def\theindex{\@restonecoltrue\if@twocolumn\@restonecolfalse\fi
  581. \columnseprule \z@
  582. \columnsep 35\p@\twocolumn[\section*{\indexname}]%
  583. \@mkboth{\uppercase{\indexname}}{\uppercase{\indexname}}%
  584. \thispagestyle{plain}\parindent\z@
  585. \parskip\z@ plus.3\p@\relax\let\item\@idxitem}
  586.  
  587. \def\@idxitem{\par\hangindent 40\p@}
  588.  
  589. \def\subitem{\par\hangindent 40\p@ \hspace*{20\p@}}
  590.  
  591. \def\subsubitem{\par\hangindent 40\p@ \hspace*{30\p@}}
  592.  
  593. \def\endtheindex{\if@restonecol\onecolumn\else\clearpage\fi}
  594.  
  595. \def\indexspace{\par \vskip 10\p@ plus5\p@ minus3\p@\relax}
  596.  
  597. \long\def\@makefntext#1{\parindent 5pt\hsize\columnwidth\parskip0pt\relax
  598. \small\def\strut{\vrule width0pt height0pt depth1.75pt\relax}%
  599. $\m@th^{\@thefnmark}$#1}
  600.  
  601. \def\thefootnote{\fnsymbol{footnote}}
  602.  
  603. \def\@fnsymbol#1{\ifcase#1\or *\or \dagger\or \ddagger\or
  604. \mathchar "278\or **\or \dagger\dagger
  605. \or \ddagger\ddagger \or \mathchar "278 \mathchar "278\or
  606. ***\or\dagger\dagger\dagger\or\ddagger\ddagger\ddagger\or
  607. \mathchar "278 \mathchar "278 \mathchar "278
  608. \else\@ctrerr\fi\relax}
  609.  
  610. \setcounter{topnumber}{2}
  611. \def\topfraction{.7}
  612. \setcounter{bottomnumber}{1}
  613. \def\bottomfraction{.3}
  614. \setcounter{totalnumber}{3}
  615. \def\textfraction{.2}
  616. \def\floatpagefraction{.5}
  617. \setcounter{dbltopnumber}{2}
  618. \def\dbltopfraction{.7}
  619. \def\dblfloatpagefraction{.5}
  620.  
  621. \long\def\@makecaption#1#2{%
  622. \setbox\@testboxa\hbox{\outertabfalse %
  623. \reset@font\small\rm#1\penalty10000\hskip.5em plus.2em\ignorespaces#2%
  624. }%
  625. \setbox\@testboxb\vbox{\hsize\@capwidth
  626. \ifdim\wd\@testboxa<\hsize %
  627. \hbox to\hsize{\hfil\box\@testboxa\hfil}%
  628. \else %
  629. \small
  630. \parindent \ifpreprintsty 1.5em \else 1em \fi
  631. \unhbox\@testboxa\par
  632. \fi
  633. }%
  634. \box\@testboxb
  635. } %
  636.  
  637. \newcounter{figure}
  638. \def\thefigure{\@arabic\c@figure}
  639.  
  640. \def\fps@figure{tbp}
  641. \def\ftype@figure{1}
  642. \def\ext@figure{lof}
  643. \def\fnum@figure{\figurename\penalty10000\hskip.3em plus .1em\relax\thefigure.}
  644. \if@floats
  645. \def\figure{\let\@capwidth\columnwidth\@float{figure}}
  646. \let\endfigure\end@float
  647. \@namedef{figure*}{\let\@capwidth\textwidth\@dblfloat{figure}}
  648. \@namedef{endfigure*}{\end@dblfloat}
  649. \else
  650. \def\figure{%
  651. \let\@capwidth\columnwidth
  652. \ifpreprintsty\iffirstfig
  653. {\newpage\centerline{FIGURES}}\global\firstfigfalse
  654. \fi\fi
  655. \vskip1pc
  656. \def\@captype{figure}%
  657. \interlinepenalty10000 %
  658. \@ifnextchar[{\@chuckoptarg}{}%
  659. }%
  660. \def\endfigure{\goodbreak\vskip1pc}%
  661. \@namedef{figure*}{\figure}%
  662. \@namedef{endfigure*}{\endfigure}%
  663. \fi
  664.  
  665. \newcounter{table}
  666. \def\thetable{\@Roman\c@table}
  667.  
  668. {\catcode`\.=13 %
  669. \gdef.{\relax\egroup\def\@flag{1}\setbox1\hbox\bgroup}%
  670. }%
  671.  
  672. \def\fps@table{tbp}
  673. \def\ftype@table{2}
  674. \def\ext@table{lot}
  675. \def\fnum@table{\tablename\penalty10000\hskip.3em plus .1em\relax\thetable.}
  676. \if@floats
  677. \def\table{%
  678. \let\@capwidth\columnwidth \def\@tablenotes{}%
  679. \global\tableontrue
  680. \bgroup\parindent=0pt
  681. \outertabtrue
  682. \setcounter{tablenote}{0}%
  683. \@float{table}%
  684. }%
  685. \def\endtable{%
  686. \global\tableonfalse\global\outertabfalse
  687. {\let\protect\relax\small\vskip2pt\@tablenotes\par}\xdef\@tablenotes{}%
  688. \end@float\egroup
  689. }%
  690. \@namedef{table*}{%
  691. \let\@capwidth\textwidth \def\@tablenotes{}%
  692. \global\tableontrue
  693. \bgroup\parindent=0pt
  694. \outertabtrue
  695. \setcounter{tablenote}{0}%
  696. \@dblfloat{table}%
  697. }
  698. \@namedef{endtable*}{%
  699. \global\tableonfalse\global\outertabfalse
  700. {\let\protect\relax\small\vskip2pt\@tablenotes\par}\xdef\@tablenotes{}%
  701. \end@dblfloat\egroup
  702. }%
  703. \else %
  704. \def\table{%
  705. \let\@capwidth\columnwidth \def\@tablenotes{}%
  706. \iffirsttab
  707. \global\firsttabfalse
  708. \ifpreprintsty{\newpage\centerline{TABLES}}\fi
  709. \fi
  710. \vskip1pc
  711. \global\tableontrue
  712. \bgroup\parindent=0pt
  713. \outertabtrue
  714. \setcounter{tablenote}{0}%
  715. \def\@captype{table}%
  716. \@ifnextchar[{\@chuckoptarg}{}%
  717. }%
  718. \def\endtable{%
  719. \global\tableonfalse\global\outertabfalse
  720. {\let\protect\relax\small\vskip2pt\@tablenotes\par}\xdef\@tablenotes{}%
  721. \egroup
  722. \vskip1pc plus 1filll \penalty-200 \vskip0pt plus -1filll
  723. }%
  724. \@namedef{table*}{\table}
  725. \@namedef{endtable*}{\endtable}
  726. \fi
  727.  
  728. \@definecounter{tablenote}
  729. \def\thetablenote{\alph{tablenote}}
  730. \def\@tablenotes{}
  731.  
  732. \def\@maketnmark{\leavevmode\hbox{$^{\reset@font\rm\@thetnmark}\m@th$}}
  733.  
  734. \def\tablenote{\@ifnextchar[{\@xtablenote}{\stepcounter{tablenote}%
  735. \begingroup \def\protect{\noexpand\protect\noexpand}%
  736. \xdef\@thetnmark{\thetablenote}\endgroup
  737. \@tablenotemark\@tablenotetext}}
  738.  
  739. \def\@xtablenote[#1]{\begingroup \c@tablenote #1\relax
  740. \def\protect{\noexpand\protect\noexpand}%
  741. \xdef\@thetnmark{\thetablenote}\endgroup
  742. \@tablenotemark\@tablenotetext}
  743.  
  744. \long\def\@tablenotetext#1{%
  745. \bgroup
  746. \iftableon\else
  747. \@revmess{error}{tablenotes used outside a table environment,}%
  748. \typeout{\space\space\space\space\space THEY ARE ARE BEING LOST!}%
  749. \fi
  750. \def\protect{\noexpand\protect\noexpand}%
  751. \edef\@tempa{\@maketnmark}%
  752. \expandafter\expandafter\expandafter
  753. \gdef
  754. \expandafter\expandafter\expandafter
  755. \@tablenotes
  756. \expandafter\expandafter\expandafter
  757. {\expandafter\@tablenotes\expandafter\par\@tempa#1}%
  758. \egroup
  759. }
  760.  
  761. \def\tablenotemark{%
  762. \@ifnextchar[{\@xtablenotemark}{\stepcounter{tablenote}%
  763. \begingroup\def\protect{\noexpand\protect\noexpand}%
  764. \xdef\@thetnmark{\thetablenote}\endgroup
  765. \@tablenotemark}}
  766.  
  767. \def\@xtablenotemark[#1]{\begingroup \c@tablenote #1\relax
  768. \def\protect{\noexpand\protect\noexpand}%
  769. \xdef\@thetnmark{\thetablenote}\endgroup \@tablenotemark}
  770.  
  771. \def\@tablenotemark{\leavevmode\ifhmode
  772. \edef\@x@sf{\the\spacefactor}\fi \@maketnmark
  773. \ifhmode\spacefactor\@x@sf\fi\relax}
  774.  
  775. \def\tablenotetext{\@ifnextchar [{\@xtablenotetext}%
  776. {\begingroup
  777. \def\protect{\noexpand\protect\noexpand}%
  778. \xdef\@thetnmark{\thetablenote}\endgroup
  779. \@tablenotetext}}
  780.  
  781. \def\@xtablenotetext[#1]{\begingroup \c@tablenote #1\relax
  782. \def\protect{\noexpand\protect\noexpand}%
  783. \xdef\@thetnmark{\thetablenote}\endgroup \@tablenotetext}
  784.  
  785. \let\tableline\hline
  786.  
  787. \newdimen\@Ldec \newdimen\@Rdec
  788.  
  789. \def\dec #1.#2 {\hbox to\@Ldec{\hss#1}\def\test{#2}%
  790. \ifx\test\empty\hbox to\@Rdec{\hfill}\else\hbox to\@Rdec{.#2\hss}\fi
  791. }
  792.  
  793. \def\setdec #1.#2 {\relax%
  794. \bgroup
  795. \setbox0\hbox{\kern1pt\relax#1}\setbox1\hbox{\kern1pt\relax#2}%
  796. \global\@Ldec\wd0\global\@Rdec\wd1%
  797. \egroup
  798. }
  799.  
  800. \setdec 000.000 %
  801.  
  802. \@temptokena={\relax\egroup
  803. \ifnum\@flag=1
  804. \setbox0\hbox{\unhbox0.\unhbox1}%
  805. \fi
  806. \gdef\@flag{1}\setbox1\hbox\bgroup
  807. }%
  808. {\catcode`\.=13\let.\relax
  809. \xdef\@defdot{\def.{\the\@temptokena}}
  810. }
  811.  
  812. \@temptokena={.}
  813. {\catcode`\.=13
  814. \ifx.\undefined %
  815. \xdef.{\the\@temptokena}
  816. \fi
  817. }
  818.  
  819. \def\@activatedots{%
  820. \def\@startcenterdot{\begingroup
  821. \relax\gdef\@flag{0 }
  822. \catcode`\.=13\@defdot
  823. \setbox0\hbox\bgroup\ignorespaces}%
  824. \def\@endcenterdot{\unskip\egroup\catcode`\.=12
  825. \ifnum\@flag=0 %
  826. \box0
  827. \else %
  828. \ifdim\wd0=0pt %
  829.  .\box1
  830. \else
  831. \ifdim\wd1=0pt %
  832. \setbox1=\hbox{\phantom{.\copy0}}\box0\box1
  833. \else %
  834. \ifdim\wd0>\wd1
  835. \setbox1\hbox to\wd0{\box1\hfil}%
  836. \else
  837. \setbox0\hbox to\wd1{\hfil\box0}%
  838. \fi
  839. \box0.\box1
  840. \fi
  841. \fi
  842. \fi
  843. \endgroup}%
  844. }
  845.  
  846. \def\apstable@array[#1]#2{\setbox\@arstrutbox=\hbox{\vrule
  847. height\arraystretch \ht\strutbox
  848. depth\arraystretch \dp\strutbox
  849. width\z@}\@mkpream{#2}\edef\@preamble{\tabskip\z@ plus 1fil\halign
  850. to\@capwidth%
  851. \bgroup \tabskip\z@ plus1fill \@arstrut
  852. \@preamble\hskip-\tabcolsep \tabskip\z@ plus 1fil
  853. \cr}%
  854. \let\@startpbox\@@startpbox \let\@endpbox\@@endpbox%
  855. \bgroup\let\par\relax\outertabfalse%
  856. \let\@sharp##\let\protect\relax
  857. \@activatedots
  858. \lineskip\z@\baselineskip\z@\@preamble}
  859.  
  860. \def\@array[#1]#2{\setbox\@arstrutbox=\hbox{\vrule
  861. height\arraystretch \ht\strutbox
  862. depth\arraystretch \dp\strutbox
  863. width\z@}\@mkpream{#2}\edef\@preamble{\halign\noexpand\@halignto
  864. \bgroup\tabskip\z@\@arstrut\@preamble
  865. \tabskip\z@\cr}%
  866. \let\@startpbox\@@startpbox \let\@endpbox\@@endpbox%
  867. \if #1t\vtop \else \if#1b\vbox \else \vcenter \fi\fi%
  868. \bgroup\let\par\relax%
  869. \let\@sharp##\let\protect\relax
  870. \@activatedots
  871. \lineskip\z@\baselineskip\z@\@preamble}
  872.  
  873. \def\@arrayclassz{\ifcase \@lastchclass \@acolampacol \or \@ampacol \or
  874. \or \or \@addamp \or
  875. \@acolampacol \or \@firstampfalse \@acol \fi
  876. \edef\@preamble{\@preamble
  877. \ifcase \@chnum
  878. \hfil$\relax\@sharp$\hfil \or $\relax\@sharp$\hfil
  879. \or \hfil$\relax\@sharp$\or
  880. \hfil$\relax\@sharp$\hfil \fi}}
  881.  
  882. \def\@tabclassz{\ifcase \@lastchclass\@acolampacol
  883. \or \@ampacol \or \or \or \@addamp \or \@acolampacol\or
  884. \@firstampfalse \new@tabacol \fi
  885. \edef\@preamble{\@preamble{%
  886. \ifcase \@chnum
  887. \hfil\ignorespaces\@sharp\unskip\hfil
  888. \or \ignorespaces\@sharp\unskip\hfil
  889. \or \hfil\hskip\z@ \ignorespaces\@sharp\unskip
  890. \or\hfil\@startcenterdot\@sharp\@endcenterdot\hfil
  891. \fi}}}
  892.  
  893. \def\@tabclassiv{\@addtopreamble\@nextchar}
  894.  
  895. \let\tabbodyfont\small
  896. \def\squeezetable{\let\tabbodyfont\scriptsize}
  897.  
  898. \def\tabular{\def\@halignto{}\@tabular}
  899.  
  900. \newif\ifoutertab
  901. \global\outertabfalse
  902.  
  903. \def\@tabular{%
  904. \ifoutertab
  905. \tabbodyfont\global\@newlistfalse\bgroup
  906. \else
  907. \leavevmode\hbox\bgroup$%
  908. \fi
  909. \let\@acol\@tabacol
  910. \let\@classz\@tabclassz
  911. \let\@classiv\@tabclassiv \let\\\@tabularcr
  912. \ifoutertab
  913. \if@quasitable\else
  914. \vskip2pt\hrule width\@capwidth\vskip2pt\hrule width\@capwidth\vskip2pt
  915. \fi
  916. \expandafter\apstable@tabarray
  917. \else
  918. \expandafter\@tabarray
  919. \fi
  920. }
  921.  
  922. \def\apstable@tabarray{%
  923. \m@th\@ifnextchar[{\apstable@array}{\apstable@array[c]}%
  924. }
  925.  
  926. \def\endtabular{\crcr\egroup\egroup
  927. \ifoutertab
  928. \if@quasitable\else
  929. \vskip2pt\hrule width\@capwidth\vskip2pt\hrule width\@capwidth\vskip2pt
  930. \fi
  931. \else
  932. $%
  933. \fi \egroup
  934. }
  935.  
  936. \def\new@tabacol{\edef\@preamble{\@preamble \hskip0pt%
  937. }}
  938.  
  939. \newif\iftableon
  940.  
  941. \def\@mkpream#1{\@firstamptrue\@lastchclass6
  942. \def\@preamble{}%
  943. \def\protect{\noexpand\protect\noexpand}\let\@sharp\relax
  944. \let\@startpbox\relax\let\@endpbox\relax
  945. \let\@startcenterdot\relax \let\@endcenterdot\relax
  946. \@expast{#1}\expandafter\@tfor \expandafter
  947. \@nextchar \expandafter:\expandafter=\@tempa\do{\@testpach\@nextchar
  948. \ifcase \@chclass \@classz \or \@classi \or \@classii \or \@classiii
  949. \or \@classiv \or\@classv \fi%
  950. \iftableon\ifoutertab %
  951. \ifnum\@chclass=4
  952. \@addtopreamble{\tabskip\z@}%
  953. \else
  954. \ifnum\@lastchclass=4
  955. \@addtopreamble{\tabskip\z@ plus1fill}%
  956. \fi
  957. \fi
  958. \fi\fi
  959. \@lastchclass\@chclass}%
  960. \ifcase \@lastchclass \@acol
  961. \or \or \@preamerr \@ne\or \@preamerr \tw@\or \or \@acol \fi}
  962.  
  963. \def\@testpach#1{\@chclass \ifnum \@lastchclass=\tw@ 4 \else
  964. \ifnum \@lastchclass=3 5 \else
  965. \z@ \if #1c\@chnum \z@ \else
  966. \if #1l\@chnum \@ne \else
  967. \if #1r\@chnum \tw@ \else
  968. \if #1d\@chnum 3 \else %
  969. \@chclass \if #1|\@ne \else
  970. \if #1@\tw@ \else
  971. \if #1p3 \else \z@ \@preamerr 0\fi
  972. \fi  \fi  \fi  \fi  \fi  \fi \fi %
  973. \fi}
  974.  
  975. \newif\if@quasitable
  976. \@quasitablefalse
  977.  
  978. \def\quasitable{%
  979. \@quasitabletrue
  980. \par\vskip\topsep \bgroup
  981. \def\caption##1{\@revmess{warning}{Captions are not supported
  982. for quasitables.}\@revmess{warning}{No caption was set.}}%
  983. \def\tablenotes##1{\@revmess{warning}{Tablenotes are not
  984. supported for quasitables.}%
  985. \@revmess{warning}{No tablenotes were set.}}%
  986. \let\@capwidth\columnwidth
  987. \tableontrue\outertabtrue\parindent0pt\relax}
  988.  
  989. \def\endquasitable{\par\egroup\vskip\topsep\noindent
  990. \@quasitablefalse \global\@ignoretrue}
  991.  
  992. \def\@authoraddress{}  \def\@title{} \def\@date{} \def\@preprint{}
  993. \def\and{\unskip, }
  994.  
  995. \def\preprint#1{%
  996. \ifpreprintsty
  997. \def\@preprint{\noindent\hfill\hbox{#1}\vskip 10pt}%
  998. \fi
  999. }
  1000.  
  1001. \def\title#1{\gdef\@title{{\large\bf\centering\ignorespaces#1\vskip2.5pt}}}
  1002.  
  1003. \def\author#1{\expandafter\def\expandafter\@authoraddress\expandafter
  1004. {\@authoraddress %
  1005. \ifpreprintsty\vskip1.5pc \fi %
  1006. {\dimen0=-\prevdepth \advance\dimen0 by23pt
  1007. \nointerlineskip \rm\centering
  1008. \vrule height\dimen0 width0pt\relax\ignorespaces#1\par
  1009. }%
  1010. }%
  1011. }
  1012.  
  1013. \def\address#1{\expandafter\def\expandafter\@authoraddress\expandafter
  1014. {\@authoraddress{\small\it\centering\ignorespaces#1\par}}}
  1015.  
  1016. \def\date#1{\gdef\@date{{\small\rm\centering(\ignorespaces#1\unskip)\par}}}
  1017.  
  1018. \def\maketitle{\par
  1019. \begingroup
  1020. \let\cite\@bylinecite
  1021. \def\thefootnote{\fnsymbol{footnote}}%
  1022. \if@twocolumn
  1023. \twocolumn[\@maketitle\vskip2pc]%
  1024. \else
  1025. \newpage
  1026. \global\@topnum\z@ %
  1027. \@maketitle
  1028. \fi
  1029. \thispagestyle{plain}\@thanks
  1030. \endgroup
  1031. \def\thefootnote{\arabic{footnote}}%
  1032. \setcounter{footnote}{0}%
  1033. \let\maketitle\relax \let\@maketitle\relax
  1034. \let\@thanks\relax \let\@authoraddress\relax \let\@title\relax
  1035. \let\@date\relax \let\thanks\relax
  1036. }
  1037.  
  1038. \def\@maketitle{%
  1039. \@preprint
  1040. \@title
  1041. \ifdim\prevdepth=-1000pt \prevdepth0pt\fi
  1042. \@authoraddress
  1043. \@date
  1044. }
  1045.  
  1046. \def\abstract{\par
  1047. \ifpreprintsty %
  1048. \vskip2.5pc
  1049. \begin{center}%
  1050. {\large \abstractname\par}%
  1051. \end{center}%
  1052. \vskip.5pc
  1053. \fi
  1054. \bgroup
  1055. \ifdim\prevdepth=-1000pt \prevdepth0pt\fi
  1056. \hsize\columnwidth
  1057. \if@twocolumn\else\leftskip=0.10753\textwidth \rightskip\leftskip\fi
  1058. \dimen0=-\prevdepth \advance\dimen0 by17.5pt \nointerlineskip
  1059. \small\vrule width 0pt height\dimen0 \relax
  1060. }
  1061.  
  1062. \def\endabstract{\par\egroup}
  1063.  
  1064. \global\let\ifdraft\iffalse \def\draft{\global\let\ifdraft\iftrue}
  1065.  
  1066. \def\pacs#1{\par %
  1067. \bgroup
  1068. \hsize\columnwidth \parindent0pt
  1069. \if@twocolumn\else\leftskip=0.10753\textwidth \rightskip\leftskip\fi
  1070. \ifdim\prevdepth=-1000pt \prevdepth0pt\fi
  1071. \dimen0=-\prevdepth \advance\dimen0 by20pt\nointerlineskip
  1072. \vbox to28pt{\small\vrule height\dimen0 width0pt\relax\ifdraft#1\fi\vfill}%
  1073. \egroup
  1074. \if@twocolumn\vskip1pc\fi
  1075. \ifpreprintsty
  1076. \penalty10000\vfill
  1077. \hbox to\columnwidth{\hfil Typeset using {REV\TeX}}\newpage
  1078. \fi
  1079. }
  1080.  
  1081. \def\keywords#1{%
  1082. \@revmess{warning}{APS doesn't use keywords. I'll ignore them.}%
  1083. }
  1084.  
  1085. \mark{{}{}} %
  1086.  
  1087. \if@twoside %
  1088. \def\ps@headings{\let\@mkboth\markboth
  1089. \def\@oddfoot{}\def\@evenfoot{}%
  1090. \def\@evenhead{\rm \thepage\hfil \sl \leftmark}%
  1091. \def\@oddhead{{\sl \rightmark}\hfil \rm\thepage}%
  1092. \def\sectionmark##1{\markboth {\uppercase{\ifnum \c@secnumdepth >\z@
  1093. \thesection\hskip 1em\relax \fi ##1}}{}}%
  1094. \def\subsectionmark##1{\markright {\ifnum \c@secnumdepth >\@ne
  1095. \thesubsection\hskip 1em\relax \fi ##1}}}
  1096. \else %
  1097. \def\ps@headings{\let\@mkboth\markboth
  1098. \def\@oddfoot{}\def\@evenfoot{}%
  1099. \def\@oddhead{{\sl \rightmark}\hfil \rm\thepage}%
  1100. \def\sectionmark##1{\markright {\uppercase{\ifnum \c@secnumdepth >\z@
  1101. \thesection\hskip 1em\relax \fi ##1}}}}
  1102. \fi
  1103.  
  1104. \def\ps@myheadings{\let\@mkboth\@gobbletwo
  1105. \def\@oddhead{{\sl\rightmark}\hfil \rm\thepage}%
  1106. \def\@oddfoot{}\def\@evenhead{\rm \thepage\hfil\sl\leftmark}%
  1107. \def\@evenfoot{}\def\sectionmark##1{}\def\subsectionmark##1{}}
  1108.  
  1109. \def\today{\ifcase\month\or
  1110. January\or February\or March\or April\or May\or June\or
  1111. July\or August\or September\or October\or November\or December\fi
  1112. \space\number\day, \number\year}
  1113.  
  1114. \ps@plain %
  1115. \pagenumbering{arabic} %
  1116. \if@twoside\else\raggedbottom\fi %
  1117. \if@twocolumn %
  1118. \twocolumn
  1119. \sloppy
  1120. \raggedbottom %
  1121. \else
  1122. \sloppy
  1123. \onecolumn %
  1124. \raggedbottom %
  1125. \fi
  1126.  
  1127. \if@titlepage
  1128. \@@input titlepag.sty\relax
  1129. \fi
  1130.  
  1131. \endinput
  1132.  
  1133. %
  1134. % ****** End of file aps.sty ******
  1135.